home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / meltdown.lha / MISC.SOURCE / ParCop.s < prev    next >
Encoding:
Text File  |  1988-07-19  |  3.3 KB  |  142 lines
  1. *****************************************************************************
  2. *                                                                           *
  3. *                             Parralax Copper Bars                *
  4. *                                                                           *
  5. *  Start Date : 25/3/91                                                     *
  6. * Last Update : 25/3/91                                                     *
  7. *                                  Code : Melt Down *
  8. *                                                                           *
  9. *****************************************************************************
  10.  
  11. ; Include the macros
  12.  
  13.     Incdir    Df1:
  14.     Include    Source/Macro
  15.  
  16. *****************************************************************************
  17.  
  18. ; Dont forget to use chip ram
  19.  
  20.     Chip
  21.     
  22. *****************************************************************************
  23.  
  24. ; Kill the operating system for good mesure
  25.  
  26.     Kill        
  27.     
  28. *****************************************************************************
  29.  
  30. ; Load custom and set up copper list
  31.  
  32.     Lea    Custom,A5
  33.     Move.l    #Copper,Cop1lch(a5)
  34.     
  35. *****************************************************************************
  36.  
  37.     Lea    $70000,A1
  38.     Move.l    #120/4,d7
  39. ShagA
  40.     Clr.l    (a1)+
  41.     Dbf    D7,Shaga
  42.  
  43. *****************************************************************************
  44.  
  45.     Move.l    #Bob,Bltapth(a5)
  46.     Move.l    #$70000+40,Bltdpth(a5)
  47.     Move.w    #40,Bltdmod(a5)
  48.     Move.w    #0,Bltamod(a5)
  49.     Move.l    #-1,Bltafwm(a5)
  50.     Move.l    #$09f00000,Bltcon0(a5)
  51.     Move.w    #3*64+1,Bltsize(a5)
  52.  
  53. *****************************************************************************
  54.  
  55. ; Main routine here
  56.  
  57. Mouse
  58.     Move.l    $dff004,d2
  59.     And.l    #$1ff00,d2    
  60.     Cmp.l    #$100,d2
  61.     Bne.s    Mouse
  62.     
  63.     Bsr    DoPar1
  64.     Tstmice    Mouse                ; Pressed the mouse
  65.     
  66. *****************************************************************************
  67.  
  68. ; Return operating system and go back to user
  69.  
  70.     Heal
  71.     Clr.l    D0                ; No error
  72.     Rts
  73.     
  74. *****************************************************************************
  75.  
  76. DoPar1
  77.     Tst.w    Scroll1
  78.     Bne.s    Scrollon1
  79.     Move.w    #16,Scroll1
  80.     Move.l    #Bob,Bltapth(a5)
  81.     Move.l    #$70000+48,Bltdpth(a5)
  82.     Move.w    #78,Bltdmod(a5)
  83.     Move.w    #0,Bltamod(a5)
  84.     Move.l    #-1,Bltafwm(a5)
  85.     Move.l    #$09f00000,Bltcon0(a5)
  86.     Move.w    #3*64+1,Bltsize(a5)
  87. Scrollon1
  88.     Move.l    #$70002,Bltapth(a5)
  89.     Move.l    #$70000,Bltdpth(a5)
  90.     Move.l    #$f9f00000,Bltcon0(a5)
  91.     Move.w    #0,Bltamod(a5)
  92.     Move.w    #0,Bltdmod(a5)
  93.     Move.l    #-1,Bltafwm(a5)
  94.     Move.w    #3*64+40,Bltsize(a5)
  95.     Sub.w    #1,Scroll1
  96.     Rts
  97.  
  98. *****************************************************************************
  99.  
  100. ; All copper list after here
  101.  
  102. Copper
  103.  
  104.     Spr_Off                    ; Switch sprites off
  105.     Cmove    $2871,Diwstrt
  106.     Cmove    $2cd1,Diwstop
  107.     Cmove    $0028,Ddfstrt
  108.     Cmove    $00d8,Ddfstop
  109.     Cmove    -46,Bpl1mod            
  110.     Cmove    -46,Bpl2mod            
  111.     Cmove    $0000,Color00
  112.     Cmove    $0222,Color01
  113.     Cmove    $0444,Color02
  114.     Cmove    $0666,Color03
  115.     Cmove    $0888,Color04
  116.     Cmove    $0aaa,Color05
  117.     Cmove    $0ccc,Color06
  118.     Cmove    $0fff,Color07
  119.     Cmove    $0007,Bpl1pth
  120.     Cmove    $0000,Bpl1ptl
  121.     Cmove    $0007,Bpl2pth
  122.     Cmove    $0000+80,Bpl2ptl
  123.     Cmove    $0007,Bpl3pth
  124.     Cmove    $0000+160,Bpl3ptl
  125.     Cmove    $3200,Bplcon0
  126.     Endcop
  127.  
  128. *****************************************************************************
  129.  
  130. Scroll1
  131.     Dc.w    0
  132.     
  133. *****************************************************************************
  134.  
  135. Bob
  136.     Dc.w    %1010101111010101
  137.     DC.w    %0110011111100110
  138.     Dc.w    %0001111111111000
  139.  
  140. *****************************************************************************
  141.  
  142.